MacFormat 1999 Spring/macformat-077.iso/Demos/RealPool Demo/3D.DAT/00779.ls

Text File | 1998-05-02 | 279 b | 14 lines

on mouseDown
  butsound()
  repeat while the mouseDown
    set yu3 to the castNum of sprite 4
    set yu to the scrollTop of cast yu3
    set yu to yu - 10
    if yu < 0 then
      set yu to 0
    end if
    set the scrollTop of cast yu3 to yu
    updateStage()
  end repeat
end